﻿Imports System.Reflection
Imports System.Reflection.Assembly

Public Class ucGioithieu

    Private Sub ucGioithieu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LabelXChanhung.ForeColor = Color.LightBlue
        LabelXQlbh.ForeColor = Color.White
        LabelXchanhungc.ForeColor = Color.LightBlue

        Dim assemblyCopyright As AssemblyCopyrightAttribute()
        assemblyCopyright = DirectCast(GetExecutingAssembly.GetCustomAttributes(GetType(AssemblyCopyrightAttribute), True), AssemblyCopyrightAttribute())
        If Not ((assemblyCopyright Is Nothing) OrElse (assemblyCopyright.Length = 0)) Then
            LabelX2.Text = assemblyCopyright(0).Copyright
        End If
        LabelX3.Text = "Version: " & Application.ProductVersion
    End Sub

    Private Sub Close()
        Dim uc As New ucGioithieu
        Me.Controls.Add(uc)
        Dim parent = DirectCast(Application.OpenForms.Item(0), MetroAppForm)
        parent.CloseModalPanel(uc, DevComponents.DotNetBar.Controls.eSlideSide.Right)
    End Sub

    Private Sub ucGioithieu_Click(sender As Object, e As EventArgs) Handles MyBase.Click
        Close()
    End Sub

    Private Sub TableLayoutPanel1_Click(sender As Object, e As EventArgs) Handles TableLayoutPanel1.Click
        Close()
    End Sub

    Private Sub ReflectionImage1_Click(sender As Object, e As EventArgs) Handles ReflectionImage1.Click
        Close()
    End Sub

    Private Sub LabelXChanhung_Click(sender As Object, e As EventArgs) Handles LabelXChanhung.Click
        Close()
    End Sub

    Private Sub LabelXQlbh_Click(sender As Object, e As EventArgs) Handles LabelXQlbh.Click
        Close()
    End Sub

    Private Sub LabelXchanhungc_Click(sender As Object, e As EventArgs) Handles LabelXchanhungc.Click
        Close()
    End Sub

    Private Sub LabelX3_Click(sender As Object, e As EventArgs) Handles LabelX3.Click
        Close()
    End Sub

    Private Sub LabelX2_Click(sender As Object, e As EventArgs) Handles LabelX2.Click
        Close()
    End Sub
End Class
